home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 8 / Eagles_Nest_Mac_Collection_Disc_8.TOAST / Developer Tools⁄Additions / InsideBa1994 / InsideBasic-94 / IB 94 / Simple DB / Simple DB.GLBL < prev    next >
Encoding:
Text File  |  1993-10-23  |  3.5 KB  |  79 lines  |  [TEXT/ZBAS]
  1. '===============================================================================
  2. '=                         Copyright 1992 Staz™ Software, Inc.                 =
  3. '=                               All rights reserved                           =
  4. '=                             "Project.GLBL" from PG:PRO                      =
  5. '===============================================================================
  6. '         DIMension your app's globals & equate your app's constants here
  7. '===============================================================================
  8. '
  9. DIM RECORD gClients
  10.   DIM 30 gClientLName$
  11.   DIM 30 gClientFName$
  12.   DIM 20 gClientPhone$
  13. DIM END RECORD _gClientSz
  14.  
  15. _maxClients = 1000
  16.  
  17. DIM gClientData.gClientSz(_maxClients)
  18. DIM gCurrRecord
  19. DIM gRecDirty
  20. _showNewRec = 1
  21. '
  22. '{PG1} PG PRO uses this line as a source code marker.  Do not remove it.
  23. '======================================================================
  24. '                    Window Class Reference Numbers
  25. '======================================================================
  26. _dataWnd                = 1                       'Untitled
  27. _ListWnd                = 2                       'List
  28. '----------------------------------------------------------------------
  29. '                      Untitled:Controls & Fields
  30. '----------------------------------------------------------------------
  31. _txtFld1class1          = 1                       'Text Field
  32. _txtFld1class2          = 2                       'Text Field
  33. _txtFld1class3          = 3                       'Text Field
  34. _LastNameFld            = 4                       'Text Field
  35. _firstNameFld           = 5                       'Text Field
  36. _phoneFld               = 6                       'Text Field
  37. _PreviousBtn            = 7                       'Btn:Previous
  38. _SaveBtn                = 8                       'Btn:Save
  39. _NextBtn                = 9                       'Btn:Next
  40. _ListBtn                = 10                      'Btn:Show list
  41. '----------------------------------------------------------------------
  42. '                        List:Controls & Fields
  43. '----------------------------------------------------------------------
  44. _NamesList              = 1                       'List:Rec#       Name
  45. _NamesListSTR           = 4001                    'STR# for list
  46. _scrlBar2WClass2        = 2                       'Vert. Scroll Bar
  47. '======================================================================
  48. '                       Filter & Include Globals
  49. '======================================================================
  50. '======================================================================
  51. '                             Menu Equates
  52. '======================================================================
  53. _FileMenu               = 1                       '== File ==
  54. _NewItem                = 1
  55. _OpenItem               = 2
  56. _CloseItem              = 3
  57. _SaveItem               = 5
  58. _SaveAsItem             = 6
  59. _PageSetupItem          = 8
  60. _PrintItem              = 9
  61. _QuitItem               = 11
  62. _EditMenu               = 2                       '== Edit ==
  63. _CantUndoItem           = 1
  64. _undoItem               = _cantUndoItem
  65. _CutItem                = 3
  66. _CopyItem               = 4
  67. _PasteItem              = 5
  68. _ClearItem              = 6
  69. _SelectAllItem          = 7
  70. :                                                 '== Apple Menu ==
  71. _AboutapplicationItem   = 1
  72. '{PG2} PG PRO uses this line as a source code marker.  Do not remove it.
  73. '
  74. '
  75. '      DIMs and equates placed here will not be disturbed by PG PRO
  76. '
  77. _wndHScroll = 8000
  78. _wndVScroll = 8001
  79.